eutil = function(baseurl, eutil, query) {
   library(XML)
   url = sprintf('%s/%s.fcgi?%s', baseurl, eutil, query)
   object = list(
      baseurl=baseurl,
      eutil=eutil,
      query=query,
      url=url,
      response=xmlInternalTreeParse(url))
   class(object) = c(eutil, 'eutil', class(object))
   object }
